Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  311 1512 (N18E59 L=142)   486    173        0 ( 290/1459- 328/1557) -41.2 E62-E54 N14-N21
      2 1156 1489 (N24W03 L=204)   212     67        0 (1120/1474-1193/1507)  11.3 W00-W05 N23-N25
      3  204 1332 (N07E64 L=137)   465    163        1 ( 163/1315- 242/1345)  -5.2 E70-E59 N05-N07
      4  238 1142 (S05E56 L=145)   375     41        0 ( 217/1116- 261/1168)  45.0 E57-E53 S06-S03
      5 1184 1056 (S02W09 L=210)   332    116        0 (1120/1025-1244/1076)  -8.1 W05-W12 S03-S01
      6 1310  944 (S07W18 L=219)   238     51        1 (1283/ 920-1341/ 975)  33.7 W16-W19 S08-S05
      7  876  870 (S16E07 L=194)   367    135        1 ( 846/ 799- 908/ 922)  66.8 E08-E05 S20-S13
      8 1441  862 (S10W28 L=228)   340     73        1 (1408/ 823-1476/ 905)  68.2 W25-W29 S12-S07
      9 1282  840 (S13W18 L=219)   382    165        1 (1181/ 826-1349/ 862)  10.3 W11-W22 S14-S11
     10  261  733 (S30E53 L=147)  1668    328        1 ( 212/ 638- 310/ 861)  49.4 E60-E47 S35-S21
     11  646  776 (S24E22 L=179)   201     89        0 ( 627/ 727- 660/ 821)  80.5 E22-E20 S27-S21
     12 1346  789 (S15W23 L=224)   231     53        1 (1313/ 773-1375/ 810)  14.0 W20-W24 S16-S14
     13 1719  700 (S15W52 L=253)  2063    320        1 (1591/ 605-1840/ 792)  37.9 W43-W62 S22-S07
     14 1015  697 (S25W03 L=204)   598    183        0 ( 935/ 628-1106/ 732)  37.9 E01-W09 S30-S22
     15 1450  671 (S21W32 L=233)   549    177        3 (1383/ 620-1501/ 714) -11.3 W27-W37 S23-S18
     16 1210  633 (S27W17 L=218)   386    111        0 (1152/ 606-1269/ 665)  40.6 W13-W20 S29-S23
     17 1370  558 (S29W30 L=231)   827    188        0 (1302/ 520-1448/ 628)  -9.5 W23-W35 S31-S25
     18 1732  457 (S28W64 L=265)   914    108        1 (1692/ 434-1765/ 486)  26.6 W60-W67 S30-S26
     19  641  357 (S54E26 L=175)   295     46        0 ( 622/ 331- 660/ 380) -63.4 E28-E24 S56-S52
     20 1326  296 (S48W39 L=240)   602    135        0 (1270/ 278-1391/ 315)  18.4 W34-W44 S49-S45
  

    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