Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1362 1658 (N35W44 L=296)  1176    201        1 (1279/1626-1442/1679) -21.0 W36-W51 N31-N38
      2 1609 1659 (N27W66 L=318)  1031    142        1 (1538/1641-1672/1677) -12.5 W59-W77 N25-N29
      3 1172 1621 (N39W28 L=280)   239     47        1 (1144/1605-1194/1640)  11.3 W25-W30 N37-N39
      4  338 1465 (N49E51 L=201)   553     50        0 ( 320/1437- 364/1500) -32.0 E55-E46 N46-N51
      5 1584 1354 (N12W44 L=296)   522    134        1 (1527/1305-1643/1388) -53.1 W40-W46 N07-N15
      6  274 1326 (N40E55 L=197)   864    125        1 ( 238/1274- 315/1371)  36.9 E58-E50 N36-N42
      7 1241 1256 (N15W18 L=270)   697    181        2 (1192/1161-1285/1317)  84.3 W16-W21 N09-N19
      8 1668 1249 (N04W46 L=298)   258     45        1 (1641/1227-1690/1269)   0.0 W43-W48 N02-N04
      9 1850 1119 (S09W59 L=311)   381     68        0 (1839/1082-1861/1151) -90.0 W58-W61 S11-S06
     10  687  969 (N11E21 L=231)   427    186        0 ( 640/ 885- 726/1042) -78.7 E22-E19 N05-N15
     11  830  820 (S00E16 L=236)   953    339        0 ( 755/ 685- 938/ 885)  21.8 E23-E08 S07-N03
     12 1696  760 (S25W39 L=291)   296     54        0 (1672/ 735-1716/ 783) -45.0 W36-W40 S27-S23
     13 1250  744 (S14W07 L=259)   227     68        0 (1229/ 713-1279/ 765)  33.7 W05-W08 S15-S12
     14  648  680 (S05E30 L=222)   308    115        1 ( 613/ 647- 695/ 711) -51.3 E32-E27 S07-S02
     15 1254  683 (S18W06 L=258)   248     93        1 (1233/ 658-1285/ 710)  14.0 W04-W08 S19-S15
     16  576  637 (S07E36 L=216)   332     55        1 ( 556/ 609- 601/ 670) -76.0 E37-E35 S08-S04
     17 1598  500 (S41W29 L=281)  2094    346        2 (1476/ 398-1706/ 629)  24.4 W17-W39 S46-S34
     18  284  586 (S06E64 L=188)  1406     96        2 ( 247/ 552- 323/ 628) -68.2 E69-E60 S08-S03
     19  612  582 (S11E36 L=216)   533     64        0 ( 578/ 553- 642/ 618)  31.0 E38-E33 S12-S08
     20  383  550 (S09E55 L=197)   632     73        0 ( 366/ 504- 402/ 590)  56.3 E58-E52 S12-S06
     21  454  462 (S16E54 L=198)  1224    185        1 ( 412/ 374- 492/ 529)  57.5 E58-E49 S22-S11
     22 1116  476 (S28E08 L=244)   347     96        0 (1068/ 459-1155/ 501) -31.0 E10-E04 S29-S26
     23  744  443 (S22E32 L=220)   962     98        2 ( 710/ 392- 781/ 499)  54.5 E34-E29 S25-S18
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y