Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  815 1636 (N51W04 L=290)   501     78        1 ( 789/1600- 843/1671)  33.7 W00-W06 N48-N53
      2 1141 1587 (N37W25 L=312)   320     59        1 (1118/1556-1168/1608)  21.8 W23-W28 N35-N38
      3 1564 1498 (N19W50 L=337)  1255    218        5 (1503/1436-1634/1530) -29.1 W44-W56 N16-N22
      4 1482 1458 (N20W42 L=328)   255     53        0 (1455/1439-1516/1477) -53.1 W39-W43 N17-N21
      5 1353 1386 (N19W30 L=316)   444    153        0 (1333/1308-1379/1456)  71.6 W27-W32 N14-N23
      6  294 1273 (N37E51 L=235)  1055    182        0 ( 234/1199- 329/1318) -32.7 E61-E46 N32-N41
      7 1474 1230 (N07W32 L=319)   225     85        0 (1447/1192-1496/1263) -78.7 W31-W33 N04-N09
      8 1839 1155 (S08W60 L=347)   950     72        2 (1811/1108-1861/1194)  45.0 W56-W63 S10-S05
      9  630 1176 (N25E21 L=265)   603    205        1 ( 531/1141- 718/1193) -24.8 E28-E15 N20-N27
     10 1157 1139 (N11W10 L=297)   460    168        0 (1071/1122-1231/1168) -11.3 W05-W15 N08-N12
     11 1475 1043 (S03W27 L=313)   858    231        4 (1430/ 955-1512/1163)  45.0 W22-W32 S07-N02
     12  248 1022 (N22E56 L=231)  1208    197        2 ( 190/ 951- 306/1082) -36.9 E63-E50 N17-N26
     13  943 1042 (N10E04 L=282)   484    206        2 ( 852/1017-1023/1072) -18.4 E09-W00 N08-N12
     14 1497  708 (S23W22 L=308)  1275    302        0 (1415/ 582-1578/ 822)  36.3 W13-W29 S29-S18
     15  752  691 (S06E24 L=263)   206     51        0 ( 723/ 673- 782/ 711) -45.0 E25-E22 S07-S04
     16 1295  358 (S43W00 L=287)  2592    306        7 (1165/ 270-1387/ 497)  25.5 E12-W09 S48-S34
     17  867  449 (S24E25 L=262)   287    120        0 ( 810/ 414- 914/ 472)   6.3 E30-E21 S24-S22
     18  768  282 (S34E42 L=245)   554     85        0 ( 733/ 254- 807/ 317)  21.8 E46-E36 S35-S31
     19 1042  190 (S50E30 L=257)   682     80        1 (1005/ 169-1087/ 210)   6.3 E34-E24 S51-S47
  

    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