Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1586 1615 (N21W57 L=237)   847    194        0 (1524/1586-1664/1647) -31.0 W52-W63 N17-N24
      2 1707 1527 (N13W62 L=242)   564     78        0 (1666/1511-1751/1545) -11.3 W57-W67 N11-N13
      3 1177 1454 (N24W21 L=201)   274    132        0 (1114/1443-1244/1471) -33.7 W17-W25 N21-N26
      4 1564 1386 (N10W42 L=222)   265     39        0 (1538/1369-1588/1402) -33.7 W40-W44 N08-N10
      5  894 1238 (N19E02 L=178)   979    444        2 ( 738/1101-1060/1319)  10.3 E13-W09 N15-N21
      6 1769 1141 (S09W50 L=229)  1281    276        3 (1665/1082-1865/1186) -27.9 W42-W59 S14-S04
      7  310 1100 (N25E45 L=134)   428     79        0 ( 282/1060- 342/1136)  26.6 E48-E42 N23-N27
      8 1245 1049 (N00W13 L=192)   679    150        1 (1196/ 975-1275/1108) -90.0 W10-W14 S04-N04
      9 1716  769 (S29W39 L=218)  4880    713        6 (1520/ 517-1867/1093)  32.7 W19-W58 S40-S14
     10  180  905 (N17E62 L=117)  3709    338       10 ( 135/ 781- 228/1077) -90.0 E70-E55 N09-N27
     11 1413  997 (S07W21 L=201)   609    194        1 (1362/ 940-1482/1074) -90.0 W18-W25 S10-S01
     12 1506 1038 (S07W28 L=207)   234     62        1 (1482/1002-1526/1059)  33.7 W26-W29 S08-S05
     13 1625  997 (S13W35 L=214)   338     41        0 (1597/ 976-1653/1017)  11.3 W32-W37 S13-S11
     14  244  929 (N17E54 L=125)   683    109        1 ( 219/ 874- 267/ 973) -90.0 E56-E52 N13-N19
     15 1401  856 (S14W17 L=197)   654    167        0 (1353/ 791-1470/ 890)   6.3 W12-W21 S17-S12
     16 1183  799 (S12W03 L=183)   219     64        0 (1152/ 772-1208/ 834) -76.0 W02-W04 S13-S09
     17  618  745 (S01E30 L=149)   930    222        1 ( 533/ 663- 688/ 831) -65.6 E33-E27 S06-N05
     18 1370  590 (S29W09 L=189)   247    107        1 (1356/ 555-1397/ 648) -90.0 W07-W10 S32-S25
     19 1089  619 (S20E07 L=173)   207     47        1 (1074/ 595-1109/ 647)  76.0 E08-E05 S21-S17
     20  302  551 (S06E63 L=117)  1221    129        2 ( 252/ 529- 376/ 591) -13.0 E70-E55 S07-S02
     21  556  463 (S16E45 L=134)  1666    358        4 ( 456/ 347- 669/ 584)  18.4 E62-E32 S21-S11
     22  816  415 (S25E30 L=149)  2277    511        2 ( 600/ 290- 999/ 525)   6.0 E53-E15 S29-S22
     23  332  430 (S14E70 L=110)  1045     82        2 ( 308/ 391- 350/ 471)  24.4 E77-E64 S16-S11
  

    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